home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _org_arc / gambo / gambo1.exe / DANRO.DXR / 00128.ls < prev    next >
Encoding:
Text File  |  1995-02-13  |  1.1 KB  |  48 lines
  1. on exitFrame
  2.   puppetSprite(30, 1)
  3.   repeat with x = 1 to 3
  4.     repeat with n = 1 to 5
  5.       set h to random(576)
  6.       if h < 90 then
  7.         set h to 90
  8.       end if
  9.       set v to random(400)
  10.       if v < 90 then
  11.         set v to 90
  12.       end if
  13.       set a to random(3)
  14.       if a = 1 then
  15.         set b to 49
  16.       else
  17.         if a = 2 then
  18.           set b to 53
  19.         else
  20.           if a = 3 then
  21.             set b to 54
  22.           end if
  23.         end if
  24.       end if
  25.       set the locH of sprite 30 to h
  26.       set the locV of sprite 30 to v
  27.       set the visible of sprite 30 to 1
  28.       updateStage()
  29.       startTimer()
  30.       repeat while the timer < 15
  31.       end repeat
  32.     end repeat
  33.     repeat with n = 1 to 5
  34.       set the locV of sprite 30 to the locV of sprite 30 + 2
  35.       updateStage()
  36.       startTimer()
  37.       repeat while the timer < 15
  38.       end repeat
  39.       set the locV of sprite 30 to the locV of sprite 30 - 2
  40.       updateStage()
  41.       startTimer()
  42.       repeat while the timer < 15
  43.       end repeat
  44.     end repeat
  45.   end repeat
  46.   puppetSprite(30, 0)
  47. end
  48.